! oct_grid   /rewritten 2/22/94/***VL/  
! width, height,
! frame width, internal frame width,
! frame thickness
t=e
addy b/2
j=a/2
e=j+c+d
f=b/2+c+d
h=e-c
i=f-c
v=sqr(2)-1

if h<0.0001 then 20
mulx j
muly j*i/h
addx v-d
addy -1
    brick d,2,t
addx -2*v+d
    brick d,2,t
addy sqr(2)
addx -0.586
rotz 90
addy -2
addx -d
   brick d,2,t
addx -2*v+d
   brick d,2,t

20:
end
